Run Magazine ReRun 1985 Winter/rerun-1985-winter.d64/perfect typist

Commodore BASIC | 2022-09-20 | 1KB | 32 lines

10 poke56,peek(56)-1:poke52,peek(56):clr
20 pg=peek(56):ml=pg*256+60
30 forx=ml to ml+154:readd:t=t+d:pokex,d:next
40 ift<>16251 then print"error in data...":end
60 pokeml+4,pg:poke ml+10,pg:poke ml+16,pg
70 poke ml+20,pg:poke ml+32,pg:poke ml+38,pg
80 poke ml+141,pg
89 print"[147]**************************************"
90 sys ml:print "** 64 perfect typist is now active  **"
100 print "** sys"ml"=on     sys"ml+30"=off **"
101 print"**************************************":new
110 data 173,005,003,201,003,208,001,096
120 data 141,105,003,173,004,003,141,104
130 data 003,162,103,160,003,142,004,003
140 data 140,005,003,096,234,234,173,104
150 data 003,141,004,003,173,105,003,141
160 data 005,003,096,032,124,165,132,011
170 data 162,000,142,240,003,142,241,003
180 data 189,000,002,240,051,201,032,208
190 data 004,164,212,240,040,201,034,208
200 data 008,072,165,212,073,001,133,212
210 data 104,072,238,241,003,173,241,003
220 data 041,007,168,104,024,072,024,104
230 data 016,001,056,042,136,016,246,109
240 data 240,003,141,240,003,232,208,200
250 data 173,240,003,024,101,020,024,101
260 data 021,141,240,003,169,042,032,210
270 data 255,169,000,174,240,003,032,205
280 data 189,162,003,189,211,003,032,210
290 data 255,202,016,247,164,011,096,145
300 data 013,032,032